Const SW_SHOWNORM = 1
Const SW_SHOWMIN = 2 ' Edited this bit - seems to work
Const SW_SHOWMAX = 3 ' although its abit pointless really hehe

Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
    Dim handle As Long
    handle = ShellExecute(0, "Open", "c:\myapp.exe", 0, 0, SW_SHOWNORM)
End Sub

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: